var
	a:array[1..50] of integer;
	n:longint;
	i:integer;
begin
	readln(n);
	i:=0;
	while n>0 do
	begin
		inc(i);
		a[i]:= n mod 2;
		n:=n div 2;
	end;

	for n:=i downto 1 do
		write(a[n]);
end.
